home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Info / TeachU14 / SAMS / Code / Day08 / etmain.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-08  |  2.5 KB  |  76 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "ETMain.h"
  6. //---------------------------------------------------------------------------
  7. #pragma resource "*.dfm"
  8. TForm1 *Form1;
  9. //---------------------------------------------------------------------------
  10. __fastcall TForm1::TForm1(TComponent* Owner)
  11.   : TForm(Owner)
  12. {
  13. }
  14. //---------------------------------------------------------------------------
  15. void __fastcall TForm1::ClearAllClick(TObject *Sender)
  16. {
  17.   for (int i=0;i<ComponentCount;i++) {
  18.     TCheckBox* checkbox =
  19.       dynamic_cast<TCheckBox*>(Components[i]);
  20.     if (checkbox) checkbox->Checked = false;
  21.   }
  22.   ActiveControl = Memo;
  23.   Timer->Enabled = false;
  24. }
  25. //---------------------------------------------------------------------
  26. void __fastcall TForm1::MemoClick(TObject *Sender)
  27. {
  28.   MouseClick->Checked = true;
  29.   Timer->Enabled = true;
  30. }
  31. //---------------------------------------------------------------------
  32. void __fastcall TForm1::MemoDblClick(TObject *Sender)
  33. {
  34.   MouseDblClick->Checked = true;
  35.   Timer->Enabled = true;
  36. }
  37. //---------------------------------------------------------------------
  38. void __fastcall TForm1::MemoMouseDown(TObject *Sender, TMouseButton Button,
  39.       TShiftState Shift, Integer X, Integer Y)
  40. {
  41.   MouseDown->Checked = true;
  42.   Timer->Enabled = true;
  43. }
  44. //---------------------------------------------------------------------
  45. void __fastcall TForm1::MemoMouseUp(TObject *Sender, TMouseButton Button,
  46.       TShiftState Shift, Integer X, Integer Y)
  47. {
  48.   MouseUp->Checked = true;
  49.   Timer->Enabled = true;
  50. }
  51. //---------------------------------------------------------------------
  52. void __fastcall TForm1::MemoKeyDown(TObject *Sender, Word &Key,
  53.       TShiftState Shift)
  54. {
  55.   KeyDown->Checked = true;
  56.   Timer->Enabled = true;
  57. }
  58. //---------------------------------------------------------------------
  59. void __fastcall TForm1::MemoKeyPress(TObject *Sender, Char &Key)
  60. {
  61.   KeyPress->Checked = true;
  62.   Timer->Enabled = true;
  63. }
  64. //---------------------------------------------------------------------
  65. void __fastcall TForm1::MemoKeyUp(TObject *Sender, Word &Key,
  66.       TShiftState Shift)
  67. {
  68.   KeyUp->Checked = true;
  69.   Timer->Enabled = true;
  70. }
  71. //---------------------------------------------------------------------
  72. void __fastcall TForm1::TimerTimer(TObject *Sender)
  73. {
  74.   ClearAllClick(Sender);
  75. }
  76. //---------------------------------------------------------------------